(smtpmail-read-response): Don't get confused by %'s in response-string.

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 925a6ec2e838aad3c3357696ba8edcc911c6d5c4..d0ac4b3c7e907820d4f5ad32b471f22b1b791562 100644 (file)
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -363,7 +363,7 @@ don't define this value.")
 ;               (setq return-value response-string)
 
                 (if smtpmail-debug-info
-                    (message response-string))
+                    (message "%s" response-string))
 
                 (setq smtpmail-read-point match-end)
                 (setq return-value